home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
t_os
/
mer_fnt
/
pa_test.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
634b
|
23 lines
10000 ' pa_test.bas 93/07/25 by TEMITORAVIOS
10300 '
10400 CLEAR ,,,120000,,300*1024
10500 DEFINT A-Z
10600 DIM TW%(55296)
10650 DEF FONT "システム 12ドット"
10700 '
10750 CLS
11200 LOAD@ "g:\sysinit\system.fnt",TW%
11300 AD = 6600
11400 FOR I = 0 TO 12*15
11700 TW%(I) = TW%(AD + I)
11800 NEXT
12000 PUT@(0,0)-(11,12*15-1),TW%
12100 SYMBOL (50,0),"ハバパヒビピフブプヘベペホボポ",12/16,12/16
12105 AD = 5472
12110 FOR I = 0 TO 12*15
12120 TW%(I) = TW%(AD + I)
12130 NEXT
12140 PUT@(20,20)-(31,20+12*15-1),TW%
12150 SYMBOL (60,20),"はばぱひびぴふぶぷへべぺほぼぽ",12/16,12/16
12200 I$ = INPUT$(1)